home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / disk.inc < prev    next >
Text File  |  1998-06-24  |  740b  |  42 lines
  1. pattern AllocUnit(_unitNum) is
  2.     push a6;
  3.     d0.l:=_unitNum;
  4.     a6:=DiskBase; jsr [a6-6];
  5.     pop a6;
  6. endp;                                                            # ALLOCUNIT
  7.  
  8. pattern FreeUnit(_unitNum) is
  9.     push a6;
  10.     d0.l:=_unitNum;
  11.     a6:=DiskBase; jsr [a6-12];
  12.     pop a6;
  13. endp;                                                            # FREEUNIT
  14.  
  15. pattern GetUnit(_unitPointer) is
  16.     push a6;
  17.     a1:=_unitPointer;
  18.     a6:=DiskBase; jsr [a6-18];
  19.     pop a6;
  20. endp;                                                            # GETUNIT
  21.  
  22. pattern GiveUnit is
  23.     push a6;
  24.     a6:=DiskBase; jsr [a6-24];
  25.     pop a6;
  26. endp;                                                            # GIVEUNIT
  27.  
  28. pattern GetUnitID(_unitNum) is
  29.     push a6;
  30.     d0.l:=_unitNum;
  31.     a6:=DiskBase; jsr [a6-30];
  32.     pop a6;
  33. endp;                                                            # GETUNITID
  34.  
  35. pattern ReadUnitID(_unitNum) is
  36.     push a6;
  37.     d0.l:=_unitNum;
  38.     a6:=DiskBase; jsr [a6-36];
  39.     pop a6;
  40. endp;                                                            # READUNITID
  41.  
  42.